1000 REM *** SPRITE-UEBERLAGERUNG ***
1010 :
1020 :
1030 REM ** AUSGABE PROGRAMMELDUNG
1040 :
1050 PRINT "[147]BITTE WARTEN"
1060 :
1070 :
1080 REM ** SPRITE-DATEN LADEN
1090 :
1100 FOR N = 832 TO 894
1110 :   POKE N, 60
1120 NEXT N
1130 :
1140 :
1150 REM ** SPRITE-REGISTER VORBEREITEN
1160 :
1170 PRINT "[147]"      :REM SCHIRM LOESCH.
1180 VIC = 53248    :REM GRAFIKBAUSTEIN
1190 :
1200 POKE 2040,13   :REM DATENZEIGER 1
1210 POKE 2041,13   :REM DATENZEIGER 2
1220 POKE 2042,13   :REM DATENZEIGER 3
1230 POKE 2043,13   :REM DATENZEIGER 4
1240 :
1250 POKE VIC,226   :REM HORZNTL.POS. 0
1260 POKE VIC+2,94  :REM HORZNTL.POS. 1
1270 POKE VIC+4,144 :REM HORZNTL.POS. 2
1280 POKE VIC+6,176 :REM HORZNTL.POS. 3
1290 :
1300 POKE VIC+1,140 :REM VERTAL.POS. 0
1310 POKE VIC+3,118 :REM VERTAL.POS. 1
1320 POKE VIC+5,190 :REM VERTAL.POS. 2
1330 POKE VIC+7,68  :REM VERTAL.POS. 3
1340 :
1350 POKE VIC+39,7  :REM 0 IST GELB
1360 POKE VIC+40,5  :REM 1 IST GRUEN
1370 POKE VIC+41,3  :REM 2 IST HELLBLAU
1380 POKE VIC+42,1  :REM 3 IST WEISS
1390 :
1400 POKE VIC+23,15 :REM ALLE SPRITES
1410 POKE VIC+29,15 :REM DOPP. GROESSE
1420 :
1430 POKE VIC+21,15 :REM SPRITE 0-3 AN
1440 :
1450 :
1460 REM ** BEWEG.REGISTER VORBEREITEN
1470 REM    UND ANF.SCHRITTE ZUWEISEN
1480 :
1490 MR(0) = VIC   : MR(1) = VIC+2
1500 MR(2) = VIC+5 : MR(3) = VIC+7
1510 :
1520 MV(0) = -1 : MV(1) = 1
1530 MV(2) = -1 : MV(3) = 1
1540 :
1550 DF = -1 :REM -1=N.INNEN 0=N.AUSSEN
1560 :
1570 :
1580 REM ** SPRITE BEWEGEN
1590 :
1600 FOR COUNT = 1 TO 200
1610 :   SPRNUM = INT((COUNT-1)/50)
1620 :   IF DF THEN SPRNUM = 3 - SPRNUM
1630 :   REG = MR(SPRNUM)
1640 :   MOVE = MV(SPRNUM)
1650 :   POKE REG, PEEK(REG) + MOVE
1660 :   GET KP$
1670 :   IF KP$= "" THEN 1690
1680 :      COUNT = 200 : KEYPRESS = -1
1690 NEXT COUNT
1700 :
1710 :
1720 REM ** PROG.END NACH TASTENDRUCK
1730 :
1740 IF KEYPRESS THEN 1900
1750 :
1760 :
1770 REM ** PAUSE, DANN RICHTUNG UM-
1780 REM    KEHREN UND VON VORN
1790 :
1800 FOR DELAY = 1 TO 400 : NEXT DELAY
1810 FOR SPRNUM = 0 TO 3
1820 :   MV(SPRNUM) = -1 * MV(SPRNUM)
1830 NEXT SPRNUM
1840 DF = -1 - DF
1850 GOTO 1600
1860 :
1870 :
1880 REM ** REGISTER ZURUECKSETZEN
1890 :
1900 POKE VIC+21,0
1910 POKE VIC+29,0
1920 POKE VIC+23,0
1930 :
1940 END